home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
CLPMOUSE.ARJ
/
DEMO1.PRG
< prev
next >
Wrap
Text File
|
1991-06-17
|
555b
|
25 lines
clear screen
ms_on(0)
for x = 1 to 2
done = .f.
do while .not. done
xxx = inkey()
if xxx <> 0
done = .t.
endif
@ 5,10 say "MOUSE STATUS"
@ 6,10 say "------------"
@ 7,10 say "Row Pos - "+str(ms_ypos())
@ 8,10 say "Col Pos - "+str(ms_xpos())
@ 9,10 say "Row Pix - "+str(ms_yppos())
@ 10,10 say "Col Pix - "+str(ms_xppos())
@ 11,10 say "But Pos - "+str(ms_bpos())
enddo
setmode(43,80)
ms_off()
ms_on(1)
next
ms_off()
setmode(25,80)
return